home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GEst.cpt / GEst 2 / card_5439.txt < prev    next >
Text File  |  1989-05-06  |  2KB  |  117 lines
  1. -- card: 5439 from stack: in
  2. -- bmap block id: 5880
  3. -- flags: 0000
  4. -- background id: 3670
  5. -- name: e
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide card field id 3
  9. end closeCard
  10.  
  11.  
  12.  
  13. -- part 2 (button)
  14. -- low flags: 00
  15. -- high flags: A000
  16. -- rect: left=400 top=296 right=342 bottom=447
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 29678 / 29678
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Cost?
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   play "buzzer"
  28.   show card field id 3
  29.   repeat 3 times
  30.     set the hilite of card button 2 to false
  31.     set the hilite of card button 2 to true
  32.   end repeat
  33.   set the hilite of card button 2 to false
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 3 (field)
  39. -- low flags: 80
  40. -- high flags: 2004
  41. -- rect: left=259 top=28 right=132 bottom=489
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   hide card field id 3
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 4 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=259 top=28 right=130 bottom=488
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: New Button
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   hide card field id 3
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 6 (button)
  77. -- low flags: 80
  78. -- high flags: 0000
  79. -- rect: left=259 top=28 right=130 bottom=488
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: New Button
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   hide card field id 3
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 7 (button)
  96. -- low flags: 00
  97. -- high flags: 2000
  98. -- rect: left=455 top=299 right=333 bottom=491
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 1012 / 1012
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: New Button
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect wipe right
  110.   pop card
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part contents for card part 3
  116. ----- text -----
  117. Cost?  This is a shareware stack for the grand-sum of $5.00 AND a postcard or e-mail (GEnii-C. Faria) letting us know what kind of stacks you want to see from us at Industrial Stax and Magic.‚Ñ¢